(■ ) 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



PAGE 



ADUfc:^ SRC 



ADO PROGRAMS TO DIRECTORY 



011»0 



03.1JS0 
01101 
01102 
01103 
01104 
01125 
011«6 
01107 
01110 
01111 
01112 
01113 
01114 



000S14 
70031g 
000S6S 

000460 
0002!33 
0001^^8 

0007;j6 
00033Z 
0^0314 

6001333 

000540 

700144 
7K0112 
7001ii'l 
7B7/64 
7077ki?. 

100i?14 
lt)0i?60 
707764 
7077W2 
2022:^7 
100460 

lfc'0iJl4 
202260 
100460 
7777/1 
042227 
142224 
14222S 



/DIGITA 
/ED Ha 



.tit^e aod programs to directory 
e;quipment corporation; maynarp, mass, 

ON 

/ 

,abs 

,1,00 1100 

/ 



CRUF=5i 

KRfi=700 

uprefx= 

TYPONEi' 
TSIXBT5 
WAIT=25 
GETM0N5 
DIRECT? 
SLINK=7 
WRITE =3 
READ=?31 
BLKNUM= 
LRQT6=5 
PSqD=54 
RSB=700 
RRy=700 
RSF=700 
EBA=707 
eEM=707 

ADDER 



ADD,1 



60 
22 
60 

20 
65 
6 

2 

4 
3 

44 

12 

01 

64 

02 

/ 

JMS 

gns 
eba 

EEM 
LAC 
vJMS 
JMS 

uac 

JMS 

LAW 
DAC 
D2M 
02M 
.EJECT 



CRUF 
UPREFX 



(ENTERri 

TIjxbt 

CRl F 
(TfTMSG»l*400000 

TSJXBT 

n7 

CARCNT* 

A# 

m 



/SET UP INPUT CHARACTER COUNTER 



O 
O 
O 
O 
O 
O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o. 

o 

o 



u 






o 








Page 2 


ADDER 


o 








01115 


10023-3 




31116 


542261 


o 


01117 


600120 




01120 


542262 




01121 


7 4 1 13 


o 


01122 


601132 




01123 


102060 




•211124 


202227 


o 


01125 


541111 




01126 


601115 




01127 


34226v5 


o 


01130 


942227 




01131 


601115 




01132 


542264 


o 


01133 


741^3 00 




01134 


601137 




01135 


100514 


o 


01136 


601147 




01137 


50226iJ 




01140 


101740 


o 


01141 


442227 




31142 


601115 




01143 


202266 


o 


01144 


100460 




01145 


700312 




01146 


601126 


o 


01147 


442227 




01150 


7510»0 




01151 


6S1160 


o 


01152 


101740 




01153 


442227 




S1154 


60115P! 


o 


01155 


202224 




01156 


741200 




01157 


6011lii6 


o 


01160 


777742 




01161 


S42231 




01162 


202267 


o 


01163 


342246 




01154 


222246 




31165 


741200 


o 


31166 


6012^0 




31167 


202246 




01170 


342270 


o 


01171 


042246 




31172 


442231 




31173 


601164 


o 


01174 


2022/1 




01175 


100460 




01176 


700312 


o 


01177 


6^30122 


o 






o 







SHQ ADD PROGRAMS TO PIRECTORY 

/ 

ADOERA JMS WAIT /WA|T FOR KEYBOARD iNpUT 



JMP ,*3 

JMS CRt,F 

sJMP AUOERC 

AND ('300077 

JMS DBPRSC 

isz 

JMP ADOERA 

L,AC (WHAT'l 



o 
o 
o 



SAD <J300203 /CONTROL C? ^ 

JMP GETMON /YES U 

SAD (0003/7 /NO 

SKP " /RUBOUT? -^ 

JMP AODERB /NO ^ 

JMS OBPRSK / 

LAC CARCNT ^ 

SAP ADDERAn4 /THIS JUST CHECKS THAT CHARACTER COUNT O 

JMP AODERA /DOESN'T GO MORE NEGATIVE THAN MINUS 6, 

TAD (^i ^ 

DAC CARCNT ^ 

JMP ADDERA 

ADDERB SAD (000^15 /TERMINATOR? 

SKP ' /YES ^ 



O 
CARCNT O 



O 



JMS TSIXBT 

KRB 

4MP AODjl ^ 

ADDERC IS2 CARCNT /NOW LEFT JUSTIFY CHARACTERS TYPED O 

SKPICLA /IN 

JMP ADDERDr,4 

JMS OBPRSL ^ 

ISH CARCNT 

JMP » "^ 4 

LAC A /CHARACTERS ARE I^EFT JUSTIFIED O 

SNA 

JMP ADU,1 /IF NOTHING THEN CR WAS INPUT, TRY AGAIN 

LAW «36 O 

DAC CNT# /SET UP TO INSERT INTO DIRECTORY 

LAC 5DIRECT /SEARCH FOR VACANT lOCATlON AT END OF 

DAC TEMP# /DIRECTORY ^ 

ADDERO IAC» TEMP /EMPTY YET? 

SNA /NO ^ 

JHP APDERE /YES O 

LAC TEMP 

TAD £0000liJ4 

DAC TEMP "' O 

ISi UNT 

JMP AUDERD ^ 

LAC (UIRFL^X+4»0000 /DIRECTORY FULL,, TEIL OPERATOR, O 

JMS TSixB'f 

KR8 - 

JMP GETMON+2 ^ 

, EJECT 

O 

o 



o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o, 
o 
o 
o 
o 
o 
o 

o 



PAGE 



ADDER SRC 



ADD PROGRAMS TO DIRECTORY 



012^0 


202272 


01201 


042242 


01202 


042251 


01203 


0422!32 


01204 


4422t>l 


012k35 


4422i?2 


01206 


44 22;?2 


31207 


1422^34 


01210 


7777/7 


01211 


042234 


01212 


0422:50 


01213 


703302 


K1214 


70014 4 


0121S 


2022/3 


01216 


040011? 


01217 


770000 


01220 


0422!?3 


01221 


142244 


01222 


I'i22t36 


0.1223 


iiirn 


01224 


042240 


01225 


142230 


01226 


101403 


01227 


442240 


01230 


60124S 


0l2il 


202243 


01232 


5022/4 


01233 


744000 


01234 


742020 


01235 


1017 63 


012*56 


74 0001 


01237 


34227!? 


01240 


0422!56 


01241 


20224^ 


0124 2 


502276 


01243 


542277 


01244 


142234 



ADOERE 



ADPERG 



LAG 


(M00003 


DAC 


PHOSZS" 


DAC 


TMODEi# 


DAC 


TM0DE2# 


ISH 


TMODEi 


ISH 


TMDDE2 


ISZ 


TM0DE2 


DHM 


UPDTBK# 


LAW 


ni 


DAC 


EdF# 


DAC 


TITJNP^ 


CAF 




RSB 




LAC 


\mTrn 


DAC 


15. 


L.AW 


ai0000 


DAC 


TciTS^e^ 


OZM 


REDTIM# 


D2M 


WRDCNT# 


LAW 


«i 


DAG 


MODE/r 


DZM 


CHKSUM# 


JMS 


READPT 


\%l 


MODE 


,JMP 


ADDERH 


LAC 


RED8UF# 


AND 


(377fe!^0 


CLL 




RTR 




JMS 


HR0T6 


CMA 




TAD 


(2 


DAC 


WRDCNT 


LAC 


REDBUF 


AiMD 


(7 


SAD 


\^ 


DHM 


EOF 


.EJECT 





/SET UP TITLE WORD INDICATORS 
/AND PROGRAM SJHE INDICATORS 



/UPDATE BLOQK ^ USED FOR > 4K FILEIS 

/SET UP END OF FILE INDICATOR 
/TITLE INDICATOR 
/TEl,i, READER TO Gq 



/WORD COUNT 

/SETUP READER TIMER TO ALLOW UP 

/TO FIVE FEET OF LEADER 

/READER MODE, USED TO DETERMINE FIRST 

/WORD OF BLOCK 

/GET A WORD 

/FIRST WORD OF BLOCK? 

/NO 

/GET WORD 

/WORD PAIR RESIDES IN BITS 1«8, 

/SET UP COUNTER, 



/WORD COUNT FOR BuOCK 
/GET WORD 



/END OF Fll,E? 



o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 






o 








PAGt ^ 


ADUtR 


o 


03.245 


202243 




01.^46 


542242 




Ql?A7 


IB 17/15 


o 


012S0 


5422iPl 




01/^ '31 


101300 




03.2!i?2 


5422132 


o 


01253 


1013^0 




012S34 


202243 




012&5 


060015 


o 


012&6 


202234 




012557 


74l2k!0 




01260 


6012/1 


o 


01263, 


4422!?3 




01262 


601226 




01263 


101441 


o 


01264 


202273 




0126i? 


0400113 




01266 


770000 


o 


01267 


0422133 




012 70 


601226 




01271 


4422S3 


o 


01272 


4422S3 




012/3 


740000 




01274 


101403 


o 


01273 


202243 




01276 


0600115 




01277 


101441 


o 






o 













o 






o 






o 






o 






o 






o 






o 






o 







SRC 



ADD PROGRAMS TO DIRECTORY 



AODERH 



UAC 


MODE 


SAD 


PHOSzi 


JHS 


PHGSZE 


SAO 


TMOOEi 


JHS 


TITLE" 


SAD 


TH0DE2 


JHS 


TiTLE' 


LAC 


RE08UF 


OAC* 


li? 


LAC 


EOF 


SNA 




vlHP 


1*11 


ISZ 


T0TS2E 


JHP 


adderb 


JHS 


Of WRIT 


UAC 


(7777' 


DAC 


IS 


UW 


wi0000 


DAC 


TQTS2E: 


^MP 


ao'qerg 


XSl 


TOTSi^K 


ISH 


TdTSHi 


NOP 




JMS 


REAQPT 


LAC 


redbuf 


DAC» 


lij 


JMS 


DtWRlT 


.EJECT 





/NO 

/TITUE? 
/TITLE? 



/END OF FILE? 



o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



PAGE 



ADDER SRC 



ADO PROGRAMS TO DIRECTORY 



01300 


0k'0t5k!0 


01201 


4422150 


01302 


60l31t? 


013^3 


202243 


01304 


7 4 01W0 


01305 


101327 


01306 


S023!^0 


01307 


1020t)7 


01310 


S42224 


01311 


74l0k!a 


01312 


601337 


01313 


202240 


ai3l4 


621300 


0X315 


202243 


01316 


102ya7 


01317 


54222S 


01320 


74iai<50 


01321 


6(31337 


01322 


777771 


01323 


0422t3l 


01324 


0422t>2 


0132!5 


042242 


01326 


601313 


01327 


000M00 


01330 


042226 


^n331 


777 771 


01332 


0422t?l 


01333 


0422S2 


01334 


£42242 


01335 


202226 


01336 


621327 



TITLE 









ISH 


TITINU 




JMP 


tUlea 




LAC 


REDBUt 




SNA 






JMS 


TiTLEC 




AND 


\iiirn 




JMS 


CNV6Bt 




SAD 


A' 




SKP 






vJMP 


THEHR 


TITUEB 


LAC 


MODE 




JMP« 


TJTLE 


TITUEA 


LAC 


REDBUF 




hJMS 


GNV6Bf 




SAD 


B 




SKP 






JMP 


T I TERR 




LAW 


-7 




DAC 


THODEl 




DAC 


TMQDE2 




DAC 


PKOSt' 




v^HP 
/ 




T.ITLEW 


TITUEC 






DAC 


C» 




LAW 


-'7 




DAC 


TMODEl 




DAC 


TMQDE2 




DAC 


PROSZ' 




LAC 


V,' 




JHP<* 


TITLEC 




.E^ECT 





/TITLE INDICATOR FOR FIRST OR SEQOND WORD 
/SECOND WORD 
/FIRST WORD 



/MASK OFF BIT TO INOIPAT^ TWO WORD TITLE 

/DIFFERENT 

/NO 

/YES, TITLE ERROR, 

/GET ORIGINAL WORp 

/SAME AS AeOVE ONLY ON SECOND WORD 



/TITLE ERROR 

/NOW change; TITLE MODE INDICATOR 

/SO NO MORE WORDS WILL BE RECOGNISED 

/AS TITLES 

/OR PROGRAM SI2ES 



o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



u 






o 








PAGE 6 


ADDER 


o 


'its 67 


202301 




0134 


100460 




£51341 


202250 





01342 


542302 




01343 


601360 




134 4 


202243 


o 


0134S 


7401k)0 




01346 


601354 




01347 


5023k)0 


o 


01350 


102^B7 




0131?1 


101371 




Dl3i>2 


10140>5 





013S3 


202243 




013i34 


1020k37 




013S5 


101371 


o 


013&6 


1^0514 




013^7 


6011k56 




B1360 


77 7 7 77 


o 


01361 


340015 




01362 


040K15 




01363 


2201^15 


o 


01364 


5B2300 




01365 


lS2t^fc37 




01366 


101371 


o 


0136/ 


202243 




01370 


60135 4 




01371 


%'dmm 


o 


01372 


041376 




01373 


2023^33 




01374 


100460 


o 


01375 


621371 




01376 


0000iii0 




01377 


300000 


o 


014013 


20231^4 




01401 


100 4 60 




01402 


6011ki0 


o 






o 






o 






o 






o 






o 






o 






o 







u 
o 



SRC ADD PROGRAMS TQ DIRECTORY 



TITERR LAC ( T I TLER^1*400000 O 

JMS TSIXBt 

UP titinD 

SAD {i'^mmi w 



JHP TtTERA 

LAC REpBUF 

SMA 

JhP TITERB 



.EJECT 



O 



AND van 11 

JMS QNV6Bf ^ 

gns P6BIT" 

JMS READPT ^ 

LAC HEDBUP O 

TITERB gnS CIMV6Bf 

JMS P6BIT ^ 

JMS CRLF U 

JMP AODji 

TITERA LAW '1 /GET FIRST WORD _ 

TAD 15 O 

DAC 15 

LAC* 15 ^ 

AND iziyrn O 

JMS QNV6Bt 

JMS P6BIT~ /PRINT n _ 

LAC HEDBUF O 

JMP TITERS 
P6BIT ^ 

DAC P6BIT1 /SET UP TO PRINT IN 6 BIT O 

LAC (P6Blfl«l /ENTER WITH WORD IN AC 

JMS TSIXBt 

JMP« P6BIT O 

P68IT1 



REEOER LAC ? REAUER«1*4000000 /PRINT ICHECK SUM ERROR' O 

JMS TSIXBT /AND START AGAIN 

JMP ADDER' 



O 
O 
O 
O 
O 

o 
o 

o 



o 
o 



o 
o 
o 
o 
o 
o 
o 
o 

o 



PAGE / ADUKH SRC ADD PROGRAMS TO DIRECTORY 



01403 


00 0000 


01404 


7001W1 


2)1405 


601431 


01406 


700314 


0X4 07 


502305 


01410 


740200 


01411 


601436 


01412 


700112 


01413 


042243 


01414 


342230 


0141t? 


042230 


01416 


442236 


01417 


6014 2'i 


3142a 


777776 


01421 


042240 


01422 


202230 


01423 


740200 


01424 


601400 


01423 


202306 


01426 


042244 


01427 


700144 


01430 


621403 


91431 


4 4 224 4 


01432 


601404 


01433 


202307 


91434 


100460 


01435 


601100 


01436 


202310 


01437 


100460 


01440 


601100 



JMP REEDEH 

O 01423 202306 LAC VfMlTl 



.EgecT 



O 

o 
o 
o 



O 01403 000000 READPT 

RSF 

JMP KtADAP /TIMED WAIT LOOP FOR READER FLAG 

O 01406 700314 lORS 

AND Kmxm^ /CHECK FOR READER NO TAPE FIrAG 

S2A 
O 01411 601436 JHP RNOTPE /ERROR O 

RR8 

DAC REDBUP- /PUT WORD AWAY 

O 01414 342230 TAD CHKSUM O 

DAC CHKSUM /UPDATE CHECKSUM 

If5?. WRDCNT 
O 01417 60142'i JMP 1+6 " O 

LAW «2 
.-_ . . - . DAC MODE 

O 01422 202230 |„AC CHKSUM O 

SHA 



o 



DAC REDTIM /SETUP NEW CONSTANT TIHE ON REAPER Fl,AG 

RSB /DO IT AGAIN 

O 01430 621403 JMP* READPT O 

/ 

READAp JSH HEPTIM _ 

O 01432 601404 JMP READPTtl O 

LAC (REDERRni*400000 /TOO LaTE WITH READER FLAG 

_ _ JMS TSlXBt /READ TIMER ERROR, F^AG DIDN'T COME UP 

O 01435 601100 JMP ADDER /FOR SOME REASON, START AGAlNi O 

RNOTPE UAC (RNTPErTl + 400000 /READER NO TAPE MESSAGE 

JMS TSIXBT 

O 01440 601100 JMP ADDER O 



O 
O 
O 

o 
o 
o 
o 
o 

o 



/ ^ 



o 








PACJfc: 6 


ADPtR 


o 


314 41 


0000^0 




^1442 


442234 




0144v5 


601401 


o 


01444 


7 7 77/7 




3144S 


042234 




01446 


202254 


o 


01447 


7412^0 




014^0 


60151J3 




0145J1 


040024 


o 


014b2 


342311 




014i3i 


0422'^4 




014^4 


7 7 W 


o 


014^35 


040334 




01456 


362246 




014137 


062246 


o 


01460 


6015^7 




01461 


142234 


o 


fll462 


202254 




31463 


7 4120 




01464 


6015W1 


o 


01465 


04 0t)2 4 




01466 


202273 




31467 


04033> 


o 


014 70 


740001 




01471 


3423k)2 




01472 


340015 


o 


01473 


7400^1 




01474 


3423i£)2 




01475 


040334 


o 


01476 


362246 




01477 


062246 




01500 


601511 


o 








01501 


101516 




01502 


601466 


o 






o 






o 






o 






o 













o 






o 







SRC 



ADD PROGRAMS JQ DIRECTORY 



OTWRIT 



ADDERP 



ADDERS 



ADDERR 








ISZ 


EOF 


JMP 


ADDERP 


tAW 


"'i 


DAC 


EOF 


LAC 


UPPTBK 


SNA 




JHP 


ADOERN 


DAC 


BUKNUH 


TAP 


(000020 


DAC 


UPDTBk 


l-AW 


r=l00Oia 


DAC 


WHJTE+2 


TAP* 


TEMP 


DAC» 


tEMP 


JHP 

/ 

DZM 


ADOERM 


EQF 


lAC 


UPDTBK 


SNA 




JMP 


ADDERR 


DAC 


BUKNUM 


LAC 


(007 7 77 


DAC 


WRITE+3 


CHA 




TAD 


(^000131 


TAD 


3,5 


CMA 




TAD 


u 


DAC 


WRlTE+2 


TAD^ 


TEMP 


DACi^ 


TEMP 


JMP 


ADDERT 


/ 




JMS 


ADDERU 


JHP 


ADDERS 


.EJECT 





/EUF INDICATOR 

/YES 

/NOT END OF FILE 

/update; block number 
/f.irst pass and not eof 



/UPDATE WORD COUNT FOR NEW FILE BY 
/4096 



/END OF FILE PASS COULD BE ANY NUMBER, 



/FIRST PASS 
/BOOTSTRAP BLOCK # 
/CA,»1 
/BOOTSTRAP CA 

/COMPUTE WORD COUNT 
/FOR PARTIAL BUFFER 



/CALCULATE TOTAL WORD aOUNT 
/FOR THIS PROCRAM 



o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

O i 

o 





PAGE y 


ADDEH 


o 


31&03 


lf'1516 




QlSf'H 


11 mm 




31505 


062245 


o 


01506 


040334 




01507 


2022/3 




01510 


040335 


o 


01511 


1603 32 




01512 


202234 




31513 


7402i:)0 


o 


01514 


621441 




01515 


601557 


o 


31516 


000ak)0 




01517 


2K2246 




01520 


7400^1 


o 


01521 


342302 




015:^2 


342267 




01523 


741100 


o 


01524 


601527 




01525 


202312 




01526 


601546 


o 


91527 


lllllh 




015>50 


342246 




01531 


042246 


o 


01532 


222246 




01533 


042241 




01534 


442246 


o 


01535 


222246 




01536 


442246 




B1537 


142232 


o 


B1540 


442232 




01541 


342313 




01542 


741100 


o 


21543 


601540 




01544 


202232 




01545 


342241 


o 


01546 


040024 




01547 


342311 




01550 


042254 


o 


01551 


442246 




01552 


442246 




01553 


rmwi^ 


o 


01554 


062246 




01555 


442246 




01556 


621516 


o 






o 






o 






o 






o 







SRC 



ADD PROGRAMS TO DIRECTORY 



ADDERN 



ADOERM 
ADDERT 



ADOERU 



AODERX 



JMS 

LAW 

DAC* 

OAC 

LAC 

OAC 

JMS 

LAC 

S5?A 

JMP 
/ 



LAC 

CMA 

TAO 

TAD 

SPA 

JMP 

LAC 

JHP 

LAW 

TAD 

DAC 

LAC^ 

OAC 

JS2 

LAC» 

IS2 

DZM 

ISZ 

TAD 

SPA 

JMP 

LAC 

TAD 

DAC 

TAD 

DAC 

ISZ 

ISZ 

LAC 

DAC« 

ISZ 

JMP» 

(EJECT 



ADOERU 

''100KM 

TKMP 

WRJTEta 

^^07 7/7 

WHITE+3 

WHITE 

EOF 

OTWRIT 
VERFYA 



TEMP 

u 

(DIRECT 

1*3 
(40 
AODERX 

n2 

TEMP 

TEMP 

TEMP 

PBLKNM# 

TEMP 

TEMP 

TEMP 

CNTBLK# 

CIMTBLK 

(0004W0 

|r?3 

CNTBLK 

PBLKNM 

BLKNUM 

((^00020 

UPDTBK' 

TEMP 

TEMP 

BLKNUM 

TEMP 

TEMP 
ADOERU 



/FIRST PASS, NOT EpF 



/EOF? 



/YES NOW VERIFY DATA ON OECTAPE 



/CHECK TO SEE THAT THE ADDRESS POINTED 
/TO'IN TEMP 15 STILL IN THE OIRE(?TORY, 
/THE FIRST PROGRAM SHOULD START AT BLOCK 
/NUM8ER 40 (OCTAL) 



/GET 8i.0CK NUMBER OF PRECED|N(; PROGRAM 



/(SET WORD COUNT Op pREqEDiNG PRO(;RAM 

/COMPUTE TOTAL BLOCKS REQUIRED FOR PRECEDING 
/PROGRAM AND ADD TO HJ$ LOCATION ON 
/TAPE AND INSERT INTO DIRECTORY, 



/# OF BLOCKS REQUIRED BY PRECEQ|NG PROGRAM 



/PUT STARTING BLOCK NUMBER OF NEW PROGRAM 
/INTO DIRECTORY 



u 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o. 

o 

o 

o 

o 

o 

o 

o 

o 

o 



o 






o 








PAGK Ifc) 


ADDER 


o 


3,557 


142230 




01560 


7777/7 




31561 


342246 


o 


01562 


342246 




21563 


222246 




01564 


042245 


o 


B1565 


442246 




31566 


222246 




0156 7 


342314 


o 


01570 


740100 




01571 


601617 




01572 


042255 


o 


01573 


nmm 




01574 


040315 




01575 


202273 


o 


S11576 


040317 




0157 7 


202245 




01603 


040024 


o 


S1601 


342311 




01602 


042243 




W1603 


100314 


o 


01604 


202273 




'^1605 


040016 




01606 


770000 


o 


01607 


042231 




01610 • 


220016 




E'1611 


342230 


o 


31612 


042230 




01613 


442231 




01614 


601610 


o 


01615 


202255 




01616 


601567 




^1617 


3423ii? 


o 


01620 


042255 




01621 


040316 




91622 


202273 


o 


01623 


040317 




01624 


202245 




01625 


040024 


o 


01626 


100314 




01627 


202273 




01630 


040016 


o 


01631 


220016 




01632 


342230 




01633 


042230 


o 


01634 


442255 




21635 


601631 




01636 


202230 


o 


01637 


740200 




016 4 


601734 


o 






o 






o 







SRC 



ADP PROGRAMS TO DIRECTORY 



VERFYA 



VERFYC 



VERFYB 



OHM 


CHKSUM 


EAW 


= 1 


TAD 


TEMP 


DAC 


TEMP 


l,AC» 


TEMP 


DAC 


stauK* 


ISZ 


TEMP 


UAC* 


TEMP 


TAD 


(010000 


SMA 




JMP 


VERFYy 


DAC 


WqLEFT# 


t,AW 


B10000 


DAC 


re:ad*2 


lAC 


(007777 


DAC 


READ + vJ 


UAC 


STBLK 


DAC 


BLKNUM 


TAD 


(000020 


DAC 


STBLK' " 


JHS 


HEAP 


UC 


(0077/7 


DAC 


16 


LAW 


"100^0 


DAC 


CNT 


L,AC« 


16 


TAD 


CHKSUM 


DAC 


CNKSUM 


ISH 


CNT 


^HP 


,M 


LAC 


WCt,EFT 


JHP 


VERFYU 


TAD 


(^10000 


DAC 


WCLEFf" 


DAC 


READ*2 


LAC 


(mi'/n 


DAC 


READ+3 


LAC 


STBLK" 


DAC 


BLKNUM 


JMS 


READ 


L.AC 


(007777 


DAC 


16 


LAC* 


16 


TAD 


CHKSUM 


DAC 


CHKSUM 


ISZ 


WCLEFT 


JMP 


i'4 


LAC 


CNKSUM 


SZA 




sJMP 


CKSMER 


.EJECT 





/THIS ROUTINE JS TP CHECK THAT 
/CONTAINS ALL THE CORRECT DATAt 
/ALL THE WORDS SHOULD BE ZERO, 

/GET STARTING BLOCK NUMBER 



DECTAPE 
THE SUM 



OP 



/CHECK SUM ERRORi 



o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



u 
o 








Page ii 


ADDER 


o 








01641 


202316 


o 


01642 


040»17 




01643 


777741 




01644 


042231 


o 


016 4 5 


16001/ 




0164 6 


442231 




01647 


601645 


o 








01650 


777775 




016i3l 


342246 


o 


31652 


042246 




01653 


202224 




01654 


062246 


o 


01655 


442246 




01656 


202225 




01657 


062246 


o 


01660 


7777/5 




01661 


04 22^33 




01662 


20231/ 


o 


01663 


040335 




01664 


777400 




01665 


040334 


o 


01666 


202302 




01667 


040024 




01670 


100332 


o 


01671 


2022/3 




01672 


04 0317 




01673 


777522 


o 


01674 


040316 




01675 


100314 




01676 


777610 


o 


01677 


042231 




01700 


202320 




01701 


040016 


o 


01702 


202321 




01703 


040017 




01704 


220016 


o 


01705 


560017 




01706 


741000 




01707 


601726 


o 


01710 


442231 




K1711 


601704 


o 






o 






o 






o 






o 







SRC ADD PROGRAMS TQ DIRECTORY 

/NOW WRITE UPOATEP OIKECTQRY ON PECTAPe 



YERFYE 



/ 

l,AC 

OAQ 

LAW 

OAC 

D2M« 

IS2 

JMP 

/ 

t,AW 

TAD 

DAC 

UAC 

DAC<* 

ISZ 

LAC 

OAC» 

LAW 

DAq 

LAC 

DAC 

LAW 

DAC 

LAC 

DAC 

gns 

LAC 

DAC 

LAW 

DAC 

JMS 

LAW 

DAC 

LAC 

DAC 

LAC 

OAC 

LAC« 

SAD<i 

SKP 
JMP 
ISH 
JMP 
.EJECT 



(SLINK^l 
17 

CNT 

17 

CNT 

I ''2 

fl3 

TEMP 

TEMP 

A 

TEMP 

TEMP 

B ' 

TEMP 

rt 3 

CINITR# 
(477 

WHJTE+3 

■^400 

(1) 

BLKNUM 

WRnE 

(007777 

READ+3' 

= 256 " 

ReAD+2 

READ 

= 170 

GNT 

(PIRECTal 

16 

(10064 

Xf 
16 

17 

PIRCEH 
pNT 



/CLEAR LINK TABLE 



/WRITE THE DIRECTORY |N MONITOR 



/NOW CHECK DIRECTORY BY READING 
/AND CHECKING AGAINST OORE 



/DIRECTORY COMPARE ERROR 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



o 






o 








PAGE 12 


/^ontR 


o 


01712 


202322 




0171'5 


10046a 




01714 


1002i?3 





01715 


542261 




31716 


6S0120 




01717 


542323 


o 


01720 


600122 




01721 


542324 




01722 


601106 


o 


01723 


760277 




01724 


100522 




01725 


601714 


o 








01726 


442233 




01727 


601662 


o 


017^50 


202325 




3l7v51 


lB04t)0 




017 32 


700312 


o 


01733 


600122 




01734 


202326 


o 


01735 


100460 




01736 


700312 




31737 


600122 


o 








01/40 


000000 




01741 


042246 





01742 


202225 




01743 


740010 




01744 


100^33 


o 


01/45 


042247 




01746 


740020 




01747 


502327 


o 


01750 


242246 




01751 


04 2225 




01752 


202247 


o 


01753 


502265 




01754 


042247 




01755 


202224 


o 


01756 


100533 




01757 


502327 




01760 


242247 





01761 


042224 




01762 


621749 


o 


01763 


000000 




01764 


742020 




01765 


742020 


o 


01766 


742020 




01767 


621763 


o 






o 







SRC AOP PROGRAMS TO DIRECTORY 



JMP ADDjl 

i,Aw vn 

vJMS TYPQNE 

gMP V£RFYP*2 



RTR 

DTD 

JMPtt RR0T6 
, EJECT 



o 

o 



VERFYD UAC ?QONTIN't1*400000 /NOW QUESTION OPERATOR AS TO O 

JMS TSIXBT /WHETHER HE WANTS TO CONTINUE ADDING 

JHS WAIT /PROGRAMS OR RETURN TO MONITOR 

SAD C5500203 O 

JMP GETMON 

SAD (000316 

JMP GETM0N*2 O 

SAO (000331 



o 
o 



/ 

DIRCER ISZ CNTR 

JMP VERFYE _ 

LAC (DRCERbJ,*400000 CJ 

JHS TSIXBt 

KRB ■ 

JMP GETM0N*2 U 

/ 

CKSMER lAC (ACSMER'^1*400000 



o 
o 
o 



JHS TSIXBT 

KRB 

JMP GETMON+2 

/ 

DBPRSL, /DOUBUE PRECISION SHIFT UEFT ROUTINE 

OAC TEMP /FOR SIX 6 BIT CHOPPED ASCI I CHARACTERS 

lAC B 

RAL, 

JMS l,R0T6 

DAC T£MPi# O 

RAR 

AND (7777W0 ^ 

XOR TEMP ' O 

DAC B" 

UAC TEMPJ, ^ 

AND (0000/7 O 

DAC TEMPI" 

UC A' 

JMS t,R0T6 O 

AND (777700 

XOR TEMPa." ^ 

DAC A O 

JMP<> UBPRSL, 

/ ' " ^ 

RR0T6 /SHIFT AC 6 PEACES TO RIGHT O 

RTR 



o 



o , 

o I 

1 

O I 



o o 

o o 

Page 13 ADDER SRC ADD PROGRAMS TO DIRECTORY 

O 01770 000000 PRGSZE a O 

l,AC REOBUF 

TAO <«3,00^'0 

O 01773 7403^30 S2AJSMA " O 

gMP 1*3 

l,AC MOPE _ 

O 01776 6217/0 JMP» PRGS2E U 

TAO Kxmm 

. „ ,„, - DAC HOPE ~ 

O 02001 232330 L.AC ( PTBMSGwl*400000 O 

JMS TSIXBT 

-. - t,AC MODE 

O 02004 100^40 viMS Pb'QD U 



o 

o 

o 



01770 


000000 


01771 


202243 


01772 


342315 


01773 


740300 


01774 


601777 


017 75 


202240 


01776 


6217/0 


017 77 


342314 


02000 


042240 


02001 


232330 


02002 


100460 


02003 


20224« 


02004 


100540 


02005 


700312 


02006 


6.00122 


02K07 


000000 


02010 


042237 


02011 


142235 


02012 


774700 


02013 


102044 


02014 


34233,i 


02015 


750100 


02016 


202332 


02017 


342235 


02020 


744000 


02021 


100533 


02022 


042235 


02023 


777730 


02024 


102044 


02025 


502265 


02026 


342331 


02027 


750100 


02030 


202333 


02031 


342235 


02032 


744000 


02033 


100533 


02034 


042235 


02035 


202237 


02036 


342331 


02037 


750100 


0204 


202332 


02041 


342237 


02042 


342235 


02043 


622007 



KRB 

JMP GETM0N*2 



.EvJECT 



o 



o /■ 

/SUBROUTINE TO CONVERI MACRO ? RADIX 50 SYMBOk TO ,5IXBIT| 

O '^SK^? 000000 CNV6BT /ENTER WITH RADJX 30 NUMBER IN THE AC O 

DAC l,TEMP3# ySTORE AS MINUEND 

..„-,«,, . „ DZM LTEMPS 

O 02012 774700 LAW s3j,00 O 

JMS SOBTRC /DETERMINE FJRST CHARACTER 

TAO («35 " /RETURN WITH CHAR| IN UTEMP * AC 

O / 

/CONVERT RADIX 50 COPE TO ASCII (ie{35«46 TO 60^7^3 

/ 
O 02015 750100 SMAJCUA 

UAC (23 

TAD LtEMP 
O 02020 744000 cut, 

JMS l,KQT6 

DAC LtEMP 

O 02023 777730 tAW «50 

JMS SUBTRC /DETERMINE SECOND CHARACTER 

AND (77 /MASK OUT FIRST CHARACTER 

O 02026 342331 TAD (e?35 

SMA|Cl,A 

tAC (23 

O 02031 342235 TAD l,tEMP 

CLl 

...„..,-. ..„ JMS LRDT6 /POSITION FIRST S SECOND CHAR, 

O 02034 042235 DAC l,tEMP O 

UC L,tEMP3 /FETCH 3RD CHARaCTE;R 

TAD (535 
O 02037 750100 SMA!CL,A O 

LAC (23 

„^..^ v.-^-, TAD UtEMP3 

O 02042 342235 TAD UTEMP" /AC CONTAINS 3 .SjXBlT CHARACTERS O 

JMPit CNV6BT 



O 
O 
O 

o 
o 
o 



o 
o 

o 



o 








PAGt; 14 


ADOtR 


o 


02044 


0B00y0 




02045 


042236 




0204 6 


20223;^ 


o 


02EH7 


74 40US4 




020i>0 


342236 




02L'Jt>l 


740400 


o 


02«!32 


602056 




020!33 


442235 




020iJ4 


04223/ 


o 


020t?5 


602047 


o 








020b6 


202235 




02013'^ 


622044 


o 








02060 


0000k:!0 




02061 


760334 


o 


02062 


100522 




02063 


202225 




02064 


74 400 


o 


02065 


502327 




02066 


101763 




02067 


042225 


o 


02070 


202224 




02071 


74402E4 




02072 


101763 


o 


02073 


042224 




02074 


502315 




020 75 


242225 


o 


02076 


042225 




02077 


202224 




02100 


740010 


o 


02101 


502273 




02102 


B42224 




02103 


622060 


o 






o 






o 






o 






o 






o 






o 






o 







o 
o 

SRC ADD PROGRAMS TO DiRECTORY 

SUBTRC /EINTER WITH SUBTRAHEND IN THE AC O 

/FETCH MINUEND 



/EXIT WITH PARTIAL, CONVERSION IN UTEMP & AC 
XSUSTR 








DAC 


LTEMP2# 


l,AC 


CfEMP^ 


CLL, 




TAD 


i«te:mp2 


SNl, 




JMP 


XSUBTK 


IS2 


L,tEMP" 


DAC 


[tE:MP3 


JMP 


subtrB*3 


/ 




WITH PARTIAL, CQNVERSION 


/ 




UC 


LTEMP 


JMPo 


?Q8TRC 


/ 









l,AW 


000334 


JMS 


TYPONg 


UC 


B ■ 


GUI, 




AND 


niiim 


.JHS 


HR0T6" 


DAC 


B^ 


L,AC 


A 


RCR 




^JMS 


HRQT6 


DAC 


A" 


AND 


{11%^^2) 


XOR 


b' 


DAC 


B 


LAC 


A 


RAl, 




AND 


vmiiii 


DAC 


A* 


JMP» 


DBPRSH 


.EJECT 





/SUBTRACT 

/SKIP IF TRUE SUBTRACT 

/INCREMENT TRUE SUBTRACT CQUNTER 
/STORE RESUtT AS NEW MJNUENO 



o 
o 
o 
o 
o 



DBPRSR 

/REPLY WITH BACK SI„ASH AND PERFDRM 

/A DOUBLE PRECISION SHIFT RIGHT O 

/WITH The SIX CHOPPED ASCII 

/BYTES, THEY ARE IN LOCATIONS "A" AND 

/»B", THE FORMAT IS Aii A2| A3 jE33,,B?|83, O 

O 

O 

O 

O 

O 

o 
o 
o 
o 
o 
o 

o 



.—■*\ 






o 






o 








PAGE IS 


ADDER 





02104 


031005 




02105 


031340 




021W6 


232515 


o 


0210 7 


400522 




02110 


221722 




B2111 


402001 


o 


02112 


200522 




02113 


4,02401 




02114 


200500 


o 


02115 


404027 




02116 


100124 




02117 


iiwm'A 


o 


02120 


241124 




02121 


140577 




02122 


404000 


o 


02123 


041122 




02124 


050324 




02125 


172231 


o 


02126 


400317 




02127 


152001 




02130 


220540 


o 


02131 


052222 




92132 


172240 




02133 


00B000 


o 


02134 


151/22 




02135 


057740 




02136 


503140 


o 


02137 


17 224 




02140 


165140 




02141 


000000 


o 


02142 


031005 




02143 


031340 




02144 


232515 


o 


02145 


400522 




02146 


221722 




02147 


404004 


o 


02150 


012401 




02151 


4017i6 




02152 


400424 


o 


02153 


402722 




02154 


171607 




02155 


000000 


o 






o 






o 






o 






o 






o 







o 

SRC ADD PROGRAMS TO DIRECTORY 

READER ,SIXBT 'CHECK SUM ERROR PAPER TAPE©' O 

o 
o 

WHAT ,SIXBT ' WHAT?e>» O 

TITMSG eSIXBT 'T|TIE? (?>' Q 

PRCER ,SIXBT 'PIRECTORY COHPARE ERROR ^\ Q 

o 
o 

CQNTIN .SIXBT 'more;? (Y OR N) ©« Q 

O 

ACSMER ,S?XBT 'CHECK SUM ERROR OATA ON PT WRONG®' O 

o 
o 
o 

.EJECT O 

o 
o 
o 
o 

o 



o 

O 021&6 010'^^^ ENTER .SIXBT 'ADD TO n{,E^^ O 

O 



o 

page; 16 ADDER SRC ADD PROGRAMS TQ DIRECTORY 



o 
o 
o 
o 



o 
o 
o 
o 
o 
o 
o 

o 



021&6 


010404 


02157 


402417 


02160 


400611 


02161 


140S00 


02162 


202217 


32163 


072201 


02164 


li?4024 


0216ti 


171740 


02166 


021107 


02167 


564001 


32170 


23230y 


02171 


150214 


02172 


0^0440 


02173 


231132 


02174 


054000 


0217S 


041122 


02176 


0S0324 


02177 


172231 


02200 


400621P 


02201 


141400 


02202 


272217 


02203 


160740 


02204 


240120 


02205 


0S4040 


02206 


202422 


02207 


400317 


02210 


162401 


02211 


111623 


02212 


400000 


02212 


161740 


02214 


202422 


0221P 


400614 


02216 


010700 


02217 


220501 


02220 


040522 


02221 


401617 


02222 


4024W1 


02223 


200500 



PT8MSG .SIXBT 'PROGKAM TOO BIG, ASSEMBLED SIHE e> » 

o 



o 
o 

O 02175 041122 QIRFL, .SIXBT 'DIRECTORY FUt,l.P' O 

o 

02201 141400 

02202 272217 TITLER .SIXBT 'WRONG TAPE PTR CONTAINS ^1 

o 
o 
o 



REDERR , SIXBT 'NO PTR FUAGC^' 



lEJECT 



o 
o 
o 
o 

O 02217 220501 RNTPE ,S|XBT 'HEADER NO TAPE©' O 

o 
o 
o 
o 
o 
o 
o 

G 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



PAGE 1/ 


ADDER 

000000 


SRC 


02257 


002155 


*!, 


02260 


402117 


U 


02261 


0002^33 


«l. 


02262 


000377 


«l 


02263 


777777 


«!, 


02264 


000215 


*L, 


02265 


%%mn 


«l. 


02266 


002114 


«l. 


02267 


000565 


*L 


02270 


000004 


«l 


02271 


402174 


«W 


02272 


000003 


*l. 


02273 


miiii 


**U 


02274 


zn^m 


»l 


02275 


000002 


*L, 


02276 


000007 


*U 


32277 


000005 


«U 


02300 


ZllTIl 


**u 


02301 


402201 


ttl 


02302 


000001 


»l, 


02303 


001375 


*l. 


02304 


402103 


<»L 


02305 


001M00 


«L 


02306 


1^1111 


'"V 


02307 


402212 


*L, 


02310 


402216 


**l. 


023U 


000020 


*L, 


02312 


000040 


^l 


02313 


000400 


K 


02314 


010000 


«l. 


02315 


770000 


U 


02316 


000755 


«L 


02317 


000477 


«l, 


02320 


000564 


»i. 


02321 


010064 


»L 


02322 


402133 


*l. 


02323 


000316 


<*l. 


02324 


000331 


<M. 


02325 


402122 


<*l 


02326 


402141 


«l. 


02327 


777700 


*l 


02330 


402161 


^'l. 


02331 


777743 


«L, 


02332 


000023 


*!. 




SIzfE 


=02333 



ADD PROGFUMS TO DARECTQRY 
.END 



NO ERROR |,INES 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



u 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



PAGE 18 ADDER 


SRC 


ADO 


A 


02224 


ACSMER 


02142 


ADDERS 


01132 


ADDERC 


nx'^? 


ADQERG 


01226 


ADDERH 


01245 


AQDtRP 


01461 


ADDERR 


01501 


ADDERg 


01516 


AODERX 


01546 


8UKNUM 


000024 


C 


02226 


CKSMER 


01734 


CNT 


02231 


CNV6BT 


02007 


CONTIN 


02134 


DQPRSR 


02060 


DIRCER 


01726 


DHCER 


02123 


DTWRIT 


0i44i 


ENTER 


02156 


EOF 


02234 


LR0T6 


000533 


LTEMP 


02235 


MODE 


02240 


P8L,KNH 


02241 


PSOD 


000540 


PTBMSG 


02162 


HEAD 


000314 


READAP 


01431 


REDBUF 


02243 


REDERR 


02213 


RNOTPE 


01436 


RNTPE 


02217 


RSB: 


700144 


RSF 


700101 


SUBTRC 


02044 


TEMP 


02246 


T{TtRB 


01354 


T I TERR 


01337 


tiTLEA 


01315 


Tltl,EB 


01313 


TITMSG 


02120 


THODEl 


02251 


TSIXBT 


000460 


TYRONE 


000522 


VERFYA 


01557 


VERFYB 


01617 


VERFYE 


01662 


WAIT 


000253 


WRDCNT 


02256 


WRJTE 


000332 



ADO PROGRAMS TO DIRECTORY 



ADDER 

ADOERD 

ADDERM 

ADDERS 

APDil 

CARCNT 

CNTBUK 

qRl,F 

DJHECT 

EBA" 

GETMON 

LTEMP2 

PRGS2E 

P6BiT 
REAPER 
REDtlM 
RRB 

SLINK 
TEMPI 
TiTiND 

fii'Uc 

TM00E2 
UPDTBK 
VERPYC 
WCLEFT 
XSUBTR 



01100 

01164 

01507 

01466 

01106 

02227 

02232 

00053,4 

W00565 

707764 

000120 

02236 

01770 

01371 
02104 
02244 

/00lii 
000756 

"02247 
02250 
01327 
02252 
022S4 
01567 

02255 
020^6 



ADDERA 

ADDERE 

APDERN 

AOOERT 

B 

CHKSUM 

CNTR 

0BPR5t 

DIRFL. 

EEM 

KRB 

LTEMP3 

PHOSZ 

p6Bin 

REAOPT 

REEOER 

RR0T6 

STBUK 

TJTERA 

T|TL,E 

TJTUER 

TOTSZE 

UPREFX 

VERFYD 

WHAT 



01115 

01200 
01503 

01511 
02225 
02230 
02233 
01740 
02175 
707702 
70031? 
02237 
02242 
01376 
01403 
01400 
01763 
02245 
01?60 

01300 
02202 
02253 
000560 
01712 
02115 
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ADPtR 



BLKNUM 

WRITE 

LR0T6 

SLINK 

ADDERB 

ADDERG 

TITUEA 

TITERA 

READPT 

ADDERP 

ADOERM 

VERFYA 

VERFYO 

RR0T6 

XSUBTR 

TITMSG 

ENTER 

REDERR 

C 

CNTBLK 

LTEMP2 

PROSH 

TEMP 

TM0DE2 

WRDCNT 

KRB 



^00024 
000332 
000533 
000756 
01132 
01226 
01315 
01360 
01403 
01461 
01507 
01557 
01712 
01763 
02056 
02120 
02156 
02213 
02226 
02232 
02236 
02242 
02246 
02252 
02256 
700312 



SRC 


ADD PROGRAMS Tp DIRECTORY 






GETMON 


000120 


WAIT 


000253 


READ 


000314 


TSIX8T 


000460 


CR|,F 


000514 


TYRONE 


000522 


PSOD 


000540 


UPREFX 


000560 


DIRECT 


000565 


ADDER 


01100 


ADDjl 


"01106 


ADDERA 


01115 


ADDERC 


01147 


ADOERO 


01164' 


ADDERE 


01200 


ADDERH 


01245 


TITL^E 


01300 


TITIEB 


01313 


TITL,EC 


01327 


1 1 TERR 


0133/ 


TITERS 


01354 


P6BIT 


01371 


P6aiTl 


01376 


REEOER 


01400 


READAP 


01431 


RNDTPE 


01436 


DTWRIT 


01441 


ADDERS 


01,466 


AODERR 


01501 


ADDERN 


01S03 


ADDERT 


01511 


adqEru 


01516 


APDERX 


03,546 


VERFYC 


01567 


VERFYB 


016i7 


VERFYE 


01662 


OIRCER 


01726 


CKSMER 


01734 


OiPRSC 


01740 


PRGSEE 


01770 


CNV6BT 


02007 


SUBTRC 


02044 


DBPRSR 


02060 


READER 


02104 


WHAT 


0211^ 


DRCER 


02123 


CQNT IN 


02134 


ACSMER 


023.42 


PTBMSG 


02162 


Qj«a 


02175' 


TltuR 


02202 


RNTPE 


02217 


A 


02224 


B 


0222^ 


CARCNT 


02227 


CHKSUM 


02230 


CNT 


022331 


CNTR 


02233 


EOF 


02234 


LTEMP 


02235 


LTEMP3 


02237 


MODE 


02240 


PPUNM 


02241 


REDBUF 


02243 


REDTIM 


02244 


STBt,K 


02245 


TEMPI 


02247 


TlTiND 


02250 


TMODEl 


0225J, 


TOTS^E 


02253 


UPDTBK 


02254 


WCLEFT 


02255 


RSF 


700101 


RRB" 


700112 


RSB 


700144 


EEM 


707702 


EBA 


707764 
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